home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
scheme
/
gjr
/
cmplrtst.lha
/
y.scm
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1990-03-27
|
261 b
|
20 lines
;;; -*- Scheme -*-
#|
Description:
This code tests the data flow analyzer.
Usage:
(fact 5) -> 120
|#
(declare (usual-integrations))
(define fact
(let ((f (lambda (p n)
(if (zero? n)
1
(* n (p p (-1+ n)))))))
(lambda (n)
(f f n))))